 #!/usr/bin/perl
use strict;

open my $output, ">>", "res.txt";
my ($x, $y) = (0, 0);
my $in;
while ( 1 )
{
	output "In $x, $y. ";
	my $should_print = 1;
	output "region? ";
	$in = <>;
	chomp($in);
	if ( $in eq 'q' )
	{
			$should_print = 0;
	}
	output $output "$x,$y;$in\n" if $should_print;
	output "Where go? ";
	$in = <>;
	chomp($in);
	last if $in eq 'q';
	if ($in eq 'w')	{ $y++; }
	elsif ($in eq 's') { $y--; }
	elsif ($in eq 'a') { $x--; }
	elsif ($in eq 'd') { $x++; }
}